Capstone project.qmd

Key projects from my Master’s degree and undergraduate studies

FCOR 599 - Deliverables

The map shows the shade patterns estimated from the digital surface model for various times on the 21st day of August 2024. The map shows the direction and length of the shadows/shades from trees on the 21st day of August 2024 at 18: 00 PM.

Leaflet

Sample leaflet - for detailed leaflet instructions, visit the FCOR 599 workshop archive page here.

library(dplyr); library(leaflet);library(terra)

Warning: package 'dplyr' was built under R version 4.3.3

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Warning: package 'leaflet' was built under R version 4.3.3

Warning: package 'terra' was built under R version 4.3.3

terra 1.7.83

shade <- rast("C:/Users/isaac020.stu/OneDrive - UBC/Documents/GitHub/E-Portfolio/images/hillshade_18-45.tif")
m <- leaflet() %>%
  addProviderTiles("Esri.WorldImagery") %>%
  addRasterImage(shade) %>% 
  addScaleBar(position = c("bottomleft"))
m